home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / demo / sound / tp_austr.lha / Australia-install / ASCII-Edit / Examples / Scripts&ASCII / Installer < prev    next >
Text File  |  1992-02-26  |  11KB  |  362 lines
  1. ; The Problem's Australia EP Installer Script.
  2. ; Written with help of ASCII-Edit in March/May 1995.
  3.  
  4. ;two vars for scrolling logo through window
  5. SET scrollUP HBBBBBBBBBBBBBBBBBB
  6. SET scrollDN HAAAAAAAAAAAAAAAAAAA
  7. SET empty "C >                                                                       "
  8.  
  9. SETFONT topaz.font 8
  10.  
  11. IF NOT Exists Australia-Install
  12.   ECHO "You  have  either already installed Australia, or something weird happened!*nI can not find this directory:*n`CD`Australia-Install/"
  13.   ECHO NOLINE "*n*n > Press Return "
  14.   SET >NIL: Return ?
  15.   ENDCLI
  16. ENDIF
  17.  
  18. ;Install the cli-commands first
  19. CD Australia-install
  20. ECHO NOLINE "Please wait...*n*nInstalling commands in C: ..."
  21. COPY >NIL: Cli-Stuff/#? C:
  22. COPY >NIL: ASCIIEdit.config S:
  23. SetRGB >NIL: RESET
  24. ;
  25. ;The following part magically converts the "Install.DATA" file to a
  26. ;protracker module, loads it into SmartPlay and then deletes it...
  27. IF EXISTS Install.DATA
  28.   ECHO NOLINE "...done!*nLoading & Converting Install.DATA file ..."
  29.   ECHO NOLINE >RAM:Header piano
  30.   JOIN RAM:Header Install.DATA TO RAM:Mod.Piano
  31.   DELETE >NIL: RAM:Header
  32.   SP RAM:Mod.Piano NW NM NE NC
  33.   DELETE >NIL: RAM:Mod.Piano
  34.   ECHO "...done!"
  35. ENDIF
  36.  
  37. ECHO "*ec"
  38. TYPE TP-Logo.ASCII
  39. WAIT 1
  40.  
  41. TYPE TP-AUSTRALIA.ASCII
  42. WAIT 1
  43.  
  44. ECHO HCPress ReturnC(C)1995 by The ProblemH
  45. SET >NIL: Return ?
  46.  
  47. ECHO "*ec"
  48. TYPE TP-AUSTRALIA.ASCII
  49. WAIT 1
  50.  
  51. ;scroll up half a screen and display info
  52. ECHO BBBBBBBBBBBBBBBBBH
  53. ECHO "HCWelcome to The Problem's Australia EP installer.*n"
  54. ECHO " This  script will fully install the Australia EP where you want it.  Please*n note  that  you  need  about 5 Mb of free space on your harddisk during the*n installation.  After installation, Australia will take up about ??Mb.*n"
  55. ECHO " It IS VITAL that you use this installer.  If you copy stuff by hand, we can*n ensure  you  that  some things in the EP won't work.  (Some files have been*n deliberately corrupted; they will be restored by the installer.)*n"
  56. ECHO " Coming  up  is  a  Path  Requester in which you should choose a destination*n directory.   If you are unsure wether you have enough diskspace, cancel the*n requester to quit the installation procedure."
  57. ECHO NOLINE "HC Press Return "
  58. SET >NIL: Return ?
  59. ECHO "HC              "
  60.  
  61. ;where to install, the Path requester...
  62. LAB Repeat
  63. SET Path ""
  64. SET Path `RequestFile DRAWER "Ram:" DRAWERSONLY TITLE "Select Path for AUSTRALIA!" POSITIVE "Install Here" NEGATIVE "Quit!"`
  65.  
  66. IF NOT $Path
  67.   ECHO "H  Are you sure you DON'T want to install Australia? (Y/N)"
  68.   SET YPos H
  69.   SET YES "Yeah! I hate installing EP's! (What?!) "
  70.   SET NO "No! O my God! What have I done!?! (you pressed Quit!...) "
  71.   SET label Quit
  72.   SKIP SUB_YesNo
  73. ELSE
  74.   SKIP DontQuit
  75. ENDIF
  76.  
  77. LAB Quit
  78. IF $answer EQ Y
  79.   SP STOP
  80.   ENDCLI
  81. ELSE
  82.   SKIP BACK Repeat
  83. ENDIF
  84.  
  85. LAB DontQuit
  86. ECHO $scrollDN
  87.  
  88. LAB questions
  89. ECHO "H Okay, now please answer the following questions...*n"
  90.  
  91. ECHO " Do you want 8-colour Magic WB icons (in stead of 4-colour)? (Y/N)"
  92. ECHO "H$emptyHC"
  93. ECHO "*n Do you want the new WB backdrop to be activated? (in prefs file!) (Y/N)"
  94. ECHO "H$emptyHC"
  95. ECHO "*n Do you run an 'interlaced' workbench? (Y/N)"
  96. ECHO "H$emptyHC"
  97. ECHO "*n Are you sure about all this? (Y/N)"
  98. ECHO "H$emptyHC"
  99. ECHO ""
  100.  
  101. ;the following makes use of the 'sub-routine', (see further down)
  102. LAB Repeat2
  103.   SET Ypos H
  104.   SET YES "Yes please, give me the beautyfull ones!"
  105.   SET NO "No, I want 4 colour icons..."
  106.   SET label Repeat3
  107.   SKIP SUB_YesNo
  108.  
  109. LAB Repeat3
  110.   SET Q1 $answer
  111.   SET Ypos H
  112.   SET YES "Yes, I guess I do."
  113.   SET NO "No, just leave me alone will you!"
  114.   SET label Repeat4
  115.   SKIP SUB_YesNo
  116.  
  117. LAB Repeat4
  118.   SET Q2 $answer
  119.   SET Ypos H
  120.   SET YES "Yes, I've got loads of memory and/or own a multiscan monitor!"
  121.   SET NO "No, I'm just an honest bloke! (Or I own a 1 GIG HD instead!)"
  122.   SET label Repeat5
  123.   SKIP SUB_YesNo
  124.  
  125. LAB Repeat5
  126.   SET Q3 $answer
  127.   SET Ypos H
  128.   SET YES "Yes, I'm not stupid you know!"
  129.   SET NO "No, I made a little mistake."
  130.   SET label Continue
  131.   SKIP SUB_YesNo
  132.  
  133. LAB Continue
  134.   SET Q4 $answer
  135.   ECHO NOLINE "*n*n*nC Hit The Return Key! (Again) "
  136.   SET >NIL: Return ?
  137.  
  138.   IF $Q4 EQ N
  139.     ECHO "AC          Try again!         "
  140.     SKIP BACK questions 
  141.   ENDIF
  142.  
  143.   ECHO $scrollUP$scrollUP
  144.  
  145.  
  146. ;And now for the backdrops...
  147. ECHO "*ec"
  148. ECHO "You  will  now have the opportunity to select which background picture will*nbe  installed.   Wether or not you have chosen to activate it, we will copy*nit  to  your  SYS:Prefs/Patterns  directory."
  149.  
  150. SET label BACKSELEC1
  151. IF $Q1 EQ Y
  152.   SKIP Pics8col
  153. ELSE
  154.   SKIP Pics4col
  155. ENDIF
  156.  
  157. LAB BACKSELEC1
  158. ECHO "*n*n*nC  1  C  2  "
  159. IF $Q3 EQ Y
  160.   ECHO "H        These are nonlaced versions. A laced version will be installed!    "
  161. ENDIF
  162.  
  163. LAB BACKSELEC2
  164. ECHO NOLINE "HEnter your choice:                  D"
  165. SET >NIL: back ?
  166.  
  167. CD Backdrops/
  168. SET patterns "SYS:Prefs/Patterns/AustBugles"
  169. IF NOT EXISTS SYS:Prefs/Patterns/"
  170.   MakeDir >NIL: SYS:Prefs/Patterns
  171. ENDIF
  172. IF NOT VAL "$back" EQ 1
  173.   IF NOT VAL "$back" EQ 2
  174.     SKIP BACK BACKSELEC2
  175.   ELSE
  176.     IF $Q1 EQ Y
  177.       IF $Q3 EQ Y
  178.         COPY >NIL: Bugles2.HL $patterns
  179.       ELSE
  180.         COPY >NIL: Bugles2 $patterns
  181.       ENDIF
  182.     ELSE
  183.       IF $Q3 EQ Y
  184.         COPY >NIL: Bugles4.HL $patterns
  185.       ELSE
  186.         COPY >NIL: Bugles4 $patterns
  187.       ENDIF
  188.     ENDIF
  189.   ENDIF
  190. ELSE
  191.   IF $Q1 EQ Y
  192.     IF $Q3 EQ Y
  193.       COPY >NIL: Bugles.HL $patterns
  194.     ELSE
  195.       COPY >NIL: Bugles $patterns
  196.     ENDIF
  197.   ELSE
  198.     IF $Q3 EQ Y
  199.       COPY >NIL: Bugles3.HL $patterns
  200.     ELSE
  201.       COPY >NIL: Bugles3 $patterns
  202.     ENDIF
  203.   ENDIF
  204. ENDIF
  205.  
  206. ;Copy window backdrop
  207. COPY >NIL: AustraliaWindows sys:prefs/patterns/
  208.  
  209. CD /
  210. DELETE >NIL: Backdrops ALL
  211. ECHO "*ec"
  212. TYPE TP-AUSTRALIA.ASCII
  213. ECHO "HThe selected pattern has been installed."
  214. IF $Q2 EQ Y
  215.   IF $Q1 EQ Y
  216.     COPY >NIL: WbPattern8.prefs SYS:Prefs/Env-Archive/Sys/WbPattern.prefs
  217.     ECHO "HAn 8 colour Window Backdrop has been copied to your SYS:Prefs/Patterns*ndirectory. This backdrop has also been actived in WBPattern.prefs!"
  218.   ELSE
  219.     COPY >NIL: WbPattern4.prefs SYS:Prefs/Env-Archive/Sys/WbPattern.prefs 
  220.     ECHO "HAn 8 colour Window Backdrop has been copied to your SYS:Prefs/Patterns*ndirectory. This backdrop can be actived using WBPattern!"
  221.   ENDIF
  222.   ECHO "HAnd it has been activated (WbPattern.prefs file has been altered)."
  223. ELSE
  224.   ECHO "HUse WbPattern to put it on your worbench!"
  225. ENDIF
  226.  
  227. DELETE >NIL: WbPattern#?.prefs
  228. WBPattern FROM SYS:Prefs/Env-Archive/Sys/WbPattern.prefs USE
  229.  
  230. ECHO NOLINE "HPress Return... "
  231. SET >NIL: Return ?
  232. ECHO HBBBBBBBBBBH
  233.  
  234. ;Superb usage of 'list' in order to rename the iconz.
  235. ECHO NOLINE "CNow installing your icons..."
  236. IF $Q1 EQ Y
  237.   LIST #? >RAM:Iconz LFORMAT "DELETE >NIL: *"%P%S*"" ALL SUB .info2
  238. ELSE
  239.   LIST >RAM:Iconz LFORMAT "DELETE >NIL: *"%P%M.info*"*nRENAME >NIL: *"%P%S*" *"%P%M.info*"" ALL SUB .info2
  240. ENDIF
  241. EXECUTE >NIL: RAM:Iconz
  242. DELETE >NIL: RAM:Iconz
  243. ECHO "...FINISHED!!!"
  244.  
  245. ;WOW! a scroll! You saw that?!
  246. ECHO "$scrollDN$scrollDN*ec"
  247.  
  248. ;move outside the Australia-install dir...
  249. CD /
  250. SET Path "$Path"Australia
  251. ECHO "And now... All HELL will break loose! Just a second...*n"
  252. COPY Australia-install $Path ALL
  253.  
  254. ECHO NOLINE "*nCleaning up..."
  255. DELETE >NIL: Australia-install ALL
  256.  
  257. ;create a script in ram to delete this installer...
  258. ECHO >RAM:KillInstaller "WAIT 3*nCD *"`CD`*"*nDELETE Australia-install ALL*nDELETE Australia.#?"
  259. CD $Path
  260.  
  261. ECHO "*ec"
  262. TYPE TP-Logo.ASCII
  263. ECHO "H    That's IT! The Australia EP is yours for EVER! Explore The Outback!"
  264. ECHO NOLINE "HCPress Return"
  265. SET >NIL: Return ?
  266.  
  267. ECHO "$scrollDN$scrollDN"
  268. TYPE TP-Australia.ASCII
  269. ECHO HBBBBBBBBBBH
  270. ECHO "C- This installer was created by the following Problem members-"
  271. ECHO "*nCGraphics*nCSolution*nCAlcoRhythm"
  272. ECHO "*nCCoding/Scripting*nCAlcoRhythm*nCSolution"
  273. ECHO "*nCDesign*nCWanda"
  274. ECHO "*nCQuality Assurance*nCCSilla*nCInfinity"
  275. ECHO "*nCMusic*nCAlcoRhythm"
  276. ECHO NOLINE "C Press Return "
  277. SET >NIL: Return ?
  278.  
  279. ECHO "$scrollDN$scrollDN"
  280. TYPE TP-Australia.ASCII
  281. ECHO HBBBBBBBBBBH
  282. ECHO " The Australia EP project is brought to you by The Problem Collective 1995*nC- It may only be spread in the original unchanged archive -*n"
  283. ECHO "CMusic:CGraphics:*nCAlcoRhythmCMushRoom (Logos)*nCSolutionCAlcoRhythm/Solution (Icons)*n"
  284. ECHO "CCoding:*nCAlcoRhythm (ASCII-Editor, SetRGB)*n*nCThe Problem wishes to thank:*nCPeter Hjelt (Excellent SmartPlay)*nCJohn Hendrix (FastView)"
  285. ECHO "CHellRaiser (The Twilight Zone)*nCLeo Elsinga (TP Internet)*nCAcid Software (Blitz Basic 2)*nCAnd The People Of Australia (Outback)*n"
  286. ECHO "CWe're The Problem, Gotta Love Us!"
  287. ECHO NOLINE "C Press Return "
  288. SET >NIL: Return ?
  289.  
  290. ECHO "$scrollDN$scrollDN"
  291. ECHO "HCWe're The Problem, Gotta Love Us!H"
  292.  
  293. ;delete the ASCII-logos
  294. DELETE >NIL: TP-#?.ASCII
  295.  
  296. ;move the Australia icon
  297. CD /
  298. RENAME >NIL: Australia/Australia.info Australia.info
  299.  
  300. ;delete this installer...
  301. RUN >NIL: C:EXECUTE RAM:KillInstaller
  302.  
  303. ;but first stop smartplay and endcli...
  304. SP STOP
  305. ENDCLI
  306.  
  307.  
  308.  
  309. ;the SUB_YesNo routine needs the following variables:
  310. ;$Ypos     - the line number string (xH, x is the line number)
  311. ;$YES      - the text to replace a positive answer (y/Y) with
  312. ;$NO       - the text to replace a negative answer (n/N) with
  313.  
  314. LAB SUB_YesNo
  315.   ECHO NOLINE "$Ypos$empty$YposC"
  316.  
  317.   SET answer ""
  318.   SET >NIL: answer ?
  319.  
  320.   IF "$answer" EQ "y"
  321.     SET answer "Y"
  322.   ENDIF
  323.   IF "$answer" EQ "n"
  324.     SET answer "N"
  325.   ENDIF
  326.   IF "$answer" EQ "Y"
  327.     ECHO "$YposC$YES"
  328.   ELSE 
  329.     IF "$answer" EQ "N"
  330.       ECHO "$YposC$NO"
  331.     ELSE
  332.       SKIP BACK SUB_YesNo
  333.     ENDIF
  334.   ENDIF
  335. SKIP BACK $label
  336.  
  337. LAB Pics8col
  338. CD Backdrops/
  339. pictocli >NIL: bugles 20 68
  340. pictocli >NIL: bugles 155 68
  341. pictocli >NIL: bugles 20 153
  342. pictocli >NIL: bugles 155 153
  343. pictocli >NIL: bugles2 330 68
  344. pictocli >NIL: bugles2 465 68
  345. pictocli >NIL: bugles2 330 153
  346. pictocli >NIL: bugles2 465 153
  347. CD /
  348. SKIP BACK $label
  349.  
  350. LAB Pics4col
  351. CD Backdrops/
  352. pictocli >NIL: bugles3 20 68
  353. pictocli >NIL: bugles3 155 68
  354. pictocli >NIL: bugles3 20 153
  355. pictocli >NIL: bugles3 155 153
  356. pictocli >NIL: bugles4 330 68
  357. pictocli >NIL: bugles4 465 68
  358. pictocli >NIL: bugles4 330 153
  359. pictocli >NIL: bugles4 465 153
  360. CD /
  361. SKIP BACK $label
  362.